ASSEMBLER Z8 FZW/BL V1.2 =LOC==OBJ.CODE===SOURCE PROGRAMM=====================PAGE: 0001 ; Bem.: Abschrift aus dem tw. kaum lesbaren Liporello-Ausdruck, ; d.h. moeglicherweise fehlerbehaftet! ??.??.?? F 0000 0001 ; 15.12.86 0000 0002 ; 0000 0003 ; ***************************** 0000 0004 ; EPSIM 0000 0005 ; ***************************** 0000 0006 ; 0000 0007 ; CREATED BY H.BRESCH 0000 0008 ; 0000 0009 ; 0000 0010 ; ******************* 0000 0011 ; DEFINITIONEN 0000 0012 HIZ EQU R0 0000 0013 LOP1 EQU R1 0000 0014 LOP2 EQU R2 0000 0015 CTR EQU R3 0000 0016 MDT EQU R7 0000 0017 ADH EQU R8 0000 0018 ADL EQU R9 0000 0019 ADH2 EQU R10 0000 0020 ADL2 EQU R11 0000 0021 MAH EQU R12 0000 0022 MAL EQU R13 0000 0023 DST EQU R14 0000 0024 SRC EQU R15 0000 0025 CR EQU 0DH 0000 0026 LF EQU 0AH 0000 0027 ; ******************* 0000 0028 ; INTERRUPT-VEKTOREN 0000 0029 ORG #0 0000 FFFF A 0030 DEFW 0FFFFH 0002 FFFF A 0031 DEFW 0FFFFH 0004 FFFF A 0032 DEFW 0FFFFH 0006 FFFF A 0033 DEFW 0FFFFH 0008 FFFF A 0034 DEFW 0FFFFH 000A 0338 A 0035 DEFW ISRT ; ISR-ZEITUEBERSCHREITUNG 000C 0036 ; ******************* 000C 0037 ; START NACH RESET 000C 0038 ORG 0CH 000C E6F402 A 0039 LD TO,#2 ; UART 000F E6F50F A 0040 LD PRE0,#0FH ; 9600 BAUD 0012 E6F200 A 0041 LD T1,#0 ; ZEITUEBERWACHUNG 0015 E6F303 A 0042 LD PRE1,#3 ; MOD-N,INT,TAKT,CR,16µs 0018 E6F11F A 0043 LD TMR,#00011111B ; T0 U,T1 LADEN 001B E6F80C A 0044 LD P01M,#00001100B ; P0=OUT,P1=BYTE-IN 001E 0045 ; STACK INTERN 001E E60006 A 0046 LD 0,#00000110B ; USER-RES.=LO,RAM-CS=LO 0021 0047 ; DPDE=LO,SPF=HI 0021 3800 0048 LD CTR,0 0023 E6F600 A 0049 LD P2M,#00000000B ; P2=OUT 0026 E602E0 A 0050 LD 2,#11000000B ; 0029 E6F701 A 0051 LD P3M,#11000001B ; SIO,PARITAET,PULL UP 002C E603E0 A 0052 LD 3,#0e0H ; LATCH LO 002F E603E0 A 0053 LD 3,#0F0H ; LATCH HI 0032 E6F900 A 0054 LD IPR,#0 ; IRQ5>IRQ3 0035 E6FB20 A 0055 LD IMR,#20H ; IRQ5 FREIGEBEN 0038 9F 0056 EI 0039 0057 ; ******************** 0039 0058 ; KOMMANDOANFORDERUNG 0039 E6FE7F A 0059 KOMIN: LD SPL,#7FH ; STACKPOINTER AUF RAM-ENDE 003C E6FF7F A 0060 LD SPH,#7FH ; (DEFEKT IN SYS8) 003F 3110 0061 SRP #10H 0041 B0FC 0062 CLR FLAGS 0043 D600B7 A 0063 CALL NL 0046 F03E 0064 LD SRC,#'>' 0048 D6008D A 0065 CALL CO ; AUSGABE '>' 004B D6000D A 0066 CALL CI 004E A6EE61 A 0067 CP DST,#61H ; GROSSES ZEICHEN? 0051 7B03 0068 JR C,KI2 0053 26EE20 A 0069 SUB DST,#20H ; UMKODIERUNG KLEIN...GROSS 0056 A6EE45 A 0070 CP DST,#'E' ; BEFEHLSDEKODIERUNG 0059 6D0153 A 0071 JP EQ,EPROM 005C A6EE44 A 0072 CP DST,#'D' 005F 6D0107 A 0073 JP EQ,DUMP 0062 A6EE52 A 0074 CP DST,#'S' 0065 6D00C2 A 0075 JP EQ,SUBST 0068 A6EE55 A 0076 CP DST,#'U' 006B 6D013E A 0077 JP EQ,USER 006F A6EE4D A 0078 CP DST,#'M' 0071 6D01A8 A 0079 JP EQ,MOVE 0074 A6EE46 A 0080 CP DST, #'F' 0077 6D0188 A 0081 JP EQ,FILL 007A A6EE48 A 0082 CP DST,#'K' 007D 6D81E9 A 0083 JP EQ,KAPAC 0080 A6EE58 A 0084 CP DST,#'X' 0083 6D0210 A 0085 JP EQ,XXX 0086 FC3F 0086 KI1: LD SRC,#'?' 0088 D6008D A 0087 CALL CO ; AUSGABE '?' 008B 8BAC 0088 JR KOMIN 008D 0089 ; ********************** 008D 0090 ; ZEICHENAUSGABE 008D 3110 0091 CO: SRP #10H 008F 56FAFF A 0092 AND IRQ,#0EFH ; RESET SENDEBEREITSCHAFT 0092 56EF7F A 0093 AND SRC,#7FH ; RESET PARITAET 0095 F9F0 0094 LD SIO,SRC ; SENDEN 0097 76FA10 A 0095 CO1: TM IRQ,#10H ; SENDEN BEENDET? 009A 6BFB 0096 JP Z,CO1 009C AF 0097 RET 009D 0098 ; ********************** 009D 0099 ; ZEICHENEINGABE 009D D600A9 A 0100 CI: CALL INP 00A0 A6EE20 A 0101 CP DST,#20H ; BEI STEUERZEICHEN KEIN ECHO 00A3 7B03 0102 JR C,CI1 00A5 D6008D A 0103 CALL CO ; ECHO SENDEN 00A8 AF 0104 CI1: RET 00A9 0105 00A9 56FAF7 A 0106 INP: AND IRQ,#0F7H ; RESET EMPFAENGERREQUEST 00AC 76FA08 A 0107 IN1: TM IRQ,#8 ; ZEICHEN EMPFANGEN? 00AF 6BFB 0108 JR Z,IN1 00B1 E8F0 0109 LD DST,SIO 00B3 56EE7F A 0110 AND DST,#7FH ; RESET PARITAET 00B6 AF 0111 RET 00B7 0112 ; ********************** 00B7 0113 ; NL-AUSGABE 00B7 FC0D 0114 ML: LD SRC,#CR 00B9 D6008D A 0115 CALL CO 00BC FC0A 0116 LD SRC,#LF 00BF D6008D A 0117 CALL CO 00C1 AF 0118 RET 00C2 0119 ; ********************** 00C2 0120 ; KOMMANDO 'SUBSTITUDE' 00C2 D60235 A 0121 SUBST: CALL ADRCR ; ADRESSEINGABE 00C5 6D0039 A 0122 JP Z,KOMIN ; KOMMANDOABBRUCH BEI CR 00C8 2CFF 0123 LD LOP2,#0FFH 00CB C8E8 0124 LD MAH,ADH 00CC D8E9 0125 LD MAL,ADL 00CF D6032B A 0126 CALL MONI 00D1 8D00DF A 0127 JP SU2 00D4 2F 0128 SU1: INC LOP2 00D5 66E207 A 0129 TCM LOP2,#7 00D8 EB05 0130 JR NZ, SU2 00DA D600B7 A 0131 CALL NL 00DD BB05 0132 JR SU3 00DF FC20 0133 SU2: LD SRC,' ' 00E1 D6008D A 0134 CALL CO 00E4 D602F9 A 0135 SU3: CALL RD ; RAM-ZELLE LESEN 00E7 0136 ; ADRESSE:MAH,MAL ; DATEN:MDT 00E7 D602C5 A 0137 CALL BYTSND ; BYTE SENDEN 00EA FC2D 0138 LD SRC,#'-' 00EC D6008D A 0139 CALL CO 00EF D60235 A 0140 CALL ADRCR 00F2 78E9 0141 LD MDT,ADL 00F4 6B0B 0142 JR NZ,SU4 00F6 D602E5 A 0143 CALL RAMWR ; RAM BESCHREIBEN 00F9 0144 ; ADRESSE:MAH,MAL ; DATEN:MDT 00F9 06ED01 A 0145 ADD MAL,#1 00FC 16EC00 A 0146 ADD MAH,#0 00FF 8BD3 0147 JR SU1 0101 D602F5 A 0148 SU4: CALL RAMWR 0104 8D0039 A 0149 JR KOMIN ; KOMMANDOENDE DURCH CR 0107 0150 ; *********************** 0107 0151 ; Kommando 'DUMP' 0107 D602B0 A 0152 DUMP: CALL DADRIN ; DOPPELTE ADRESSEINGABE 010A ED0086 A 0153 JP NZ,KI1 010D 2CFF 0154 LD LOP2,#0FFH 010F D6032B A 0155 CALL MONI 0112 D600B7 A 0156 DU1: CALL NL 0115 78EC 0157 LD MDT,MAH 0117 D602C5 A 0158 CALL BYTSND 011A 78ED 0159 LD MDT,MAL 011C D602C5 A 0160 CALL BYTSND ; ADRESSAUSGABE AM ZEILENANFANG 011F FC20 0161 DU2: LD SRC,#' ' 0121 D6008D A 0162 CALL CO ; AUSGABE LEERZEICHEN 0124 D602F9 A 0163 CALL RD ; 1 BYTE LESEN 0127 D602C5 A 0164 CALL BYTSND ; 1 BYTE SENDEN 012A D602BE A 0165 CALL ADRCP ; ENDADRESSE ERREICHT? 012D 6D0039 A 0166 JP Z,KOMIN 0130 06ED01 A 0167 ADD MAL,#1 0133 16EC00 A 0168 ADC MAH,#0 0136 2E 0169 INC LOP2 0137 66E20F A 0170 TMC LOP2,#0FH 013A EBF7 0171 JR NZ,DU2 013C 8BD4 0172 JR DU1 013E 0173 ; ************************ 013E 0174 ; KOMMANDO 'USER' 013E D6022B A 0175 USER: CALL CRIN 0141 E6F80C A 0176 LD P01M,#00001100B ; P1=BYTE IN 0144 E6F6FF A 0177 LD P2M,#0FFH ; P2=IN 0147 E60007 A 0178 LD 0,#00000111B ; USER-RES=HI 014A E603E0 A 0179 LD 3,#0E0H ; LATCH LO 014D E603F0 A 0180 LD 3,#0F0H ; LATCH HI 0150 8D0039 A 0181 JP KOMIN 0152 0182 ; ************************ 0152 0183 ; KOMMANDO EPROM UMLADEN 0152 D60235 A 0184 EPROM: CALL ADRCR ; OFFSETADRESSE EINLESEN 0156 ED0086 A 0185 JP NZ,KI1 0159 D6032B A 0186 CALL MONI 015C B0EC 0187 CLR MAH 015E B0ED 0188 CLR MAL 0160 06EC08 A 0189 EP1: ADD MAH,#08H 0163 D60317 A 0190 CALL EPRON 0166 D602E9 A 0191 CALL RD 0169 26EC08 A 0192 SUB MAH,#08H 016C D6030D A 0193 CALL RAMON 016F 02D9 0194 ADD MAL,ADL 0171 12C8 0195 ADC MAH,ADH 0173 D602F5 A 0196 CALL RAMWR 0176 22D9 0197 SUB MAL,ADL 0178 32C8 0198 SBC MAH,ADH 017A 06ED01 A 0199 ADD MAL,#1 017D 16EC00 A 0200 ADC MAH,#0 0180 A6EC08 A 0201 CP MAH,#8 0183 EBD6 0202 JR NZ,EP1 0185 8D0039 A 0203 JP KOMIN 0188 0204 ; ************************ 0188 0205 ; KOMMANDO 'FILL' 0188 D60235 A 0206 FILL: CALL ADRCR 018B ED0086 A 0207 JP NZ,KI1 018E D6032B A 0208 CALL MONI 0191 78E9 0209 LD MDT,ADL 0193 CC20 0210 LD MAH,#20H 0195 B0ED 0211 CLR MAL 0197 D602F5 A 0212 FI1: CALL RAMWR 019A 26ED01 A 0213 SUB MAL,#1 019D 36EC00 A 0214 SBC MAH,#0 01A0 A6ECFF A 0215 CP MAH,#FFH 01A3 EBF2 0216 JR NE,FI1 01A5 8D0039 A 0217 JP KOMIN 01A8 0218 ; ************************ 01A8 0219 ; KOMMANDO 'MOVE' 01A8 D602B0 A 0220 MOVE: CALL DADRIN ; ANFANGSADRESSE MAL,MAH 01AB 6D0086 A 0221 JP Z,KI1 01AE 70E9 0222 PUSH ADL 01B0 70E8 0223 PUSH ADH 01B2 D60235 A 0224 CALL ADRCR 01B5 ED0086 A 0225 JP NZ,KI1 01B8 B8E9 0226 LD ADL2,ADL 01BA A8E8 0227 LD ADH2,ADH ; ZIELADRESSE ADL2,ADH2 01BC 50E8 0228 POP ADH 01BE 50E9 0229 POP ADL ; ENDADRESSE ADL,ADH 01C0 D6032B A 0230 CALL MONI 01C3 D602E9 A 0231 MO1: CALL RD 01C6 70ED 0232 PUSH MAL 01C8 70EC 0233 PUSH MAH 01CA D8EB 0234 LD MAL,ADL2 01CC C8E8 0235 LD MAH,ADH2 01CE D602F5 A 0236 CALL RAMWR 01D1 50EC 0237 POP MAH 01D3 50ED 0238 POP MAL 01D5 D602BE A 0239 CALL ADRCR 01D8 6D0039 A 0240 JP Z,KOMIN 01DB 06ED01 A 0241 MO2: ADD MAL,#1 01DE 16EC00 A 0242 ADC MAH,#0 ; ANFANGSADRESSE INKREMENTIEREN 01E1 06EB01 A 0243 ADD ADL2,#1 01E4 16EA00 A 0244 ADC ADH2,#0 ; ZIELADRESSE INKREMENTIEREN 01E7 8BD8 0245 JR MO1 01E9 0246 ; ************************ 01E9 0247 ; KOMMANDO 'KAPACITY' 01E9 D60235 A 0248 CAPAC: CALL ADRCR 01EC ED0086 A 0249 JP NZ,KI1 01EE A6E800 A 0250 CP ADH,#0 01F2 ED0086 A 0251 JP NZ,KI1 01F5 A6E901 A 0252 CP ADL,#1 01F8 6D0207 A 0253 JP Z,KA1 01FB A6E)02 A 0254 CP ADL,#2 01FE ED0086 A 0255 JP NZ,KI1 0201 56E3FB A 0256 AND CTR,#11111011B ; SPF=LO 0204 8D020A A 0257 JP KA2 0207 46E304 A 0258 KA1: OR CTR,#00000100B ; SPF=HI 020A D6032B A 0259 KA2: CALL MONI 020D AD0039 A 0260 JP KOMIN 0210 0261 ; ************************ 0210 0262 ; KOMMANDO 'X' 0210 D60228 A 0263 XXX: CALL CRIN 0213 D6032B A 0624 CALL MONI 0216 B0EC 0265 CLR MAH 0218 B0ED 0266 CLR MAL 021A D60089 A 0267 X1: CALL INP 021D 78EE 0268 LD MDT,DST 021F D602F5 A 0269 CALL RAMWR 0222 06ED01 A 0270 ADD MAL,#1 0225 16EC00 A 0271 ADC MAH,#0 0228 8D021A A 0272 JP X1 022B 0273 022B 0274 022B 0275 ; ************************ 022B 0276 ; UNTERPROGRAMME 022B 0277 022B 0278 ; ************************ 022B 0279 ; CR-EINGABE 022B D6009D A 0280 CRIN: CALL CI 022F A6EE0D A 0281 CP DST,#CR 0231 ED0086 A 0282 JP NE,KI1 0234 AF 0283 RET 0235 0284 ; ************************ 0235 0285 ; ADRESS-EINGABE MIT TEST 'CR' 0235 D6023F A 0286 ADRCR: CALL ADRIN 0238 0287 ; 0238 ED0086 A 0288 JP NZ,KI1 ; KOMMANDOABBRUCH BEI 023B 0289 ; UNVOLLST. EINGABE 023B A6EE0D A 0290 CP DST,#CR 023E AF 0291 RET 023F 0292 ; ************************ 023F 0293 ; ADRESS-EINGABE IN ADH,ADL 023F 0294 ; Z GESETZT,WENN MIN. 1X HEX-ZAHL 023F 0295 ; + 1x ABBRUCHZEICHEN ERKANNT 023F B0E8 0296 ADRIN: CLR ADH 0241 B0E9 0297 CLR ADL 0243 D60264 A 0298 CALL ZIFFIN 0246 6B06 0299 JR Z,DB1 0248 A6EE20 A 0300 CP DST,#' ' 024B 6BF2 0301 JR EQ,ADRIN 024D AF 0302 RET 024E 98EE 0303 DB1: LD ADL,DST 0250 D60264 A 0304 CALL ZIFFIN 0253 6B03 0305 JR Z,DB2 ; 2.HEX-ZAHL ERKANNT 0255 A2EE 0306 CP DST,DST ; Z SETZEN 0257 AF 0307 RET 0258 1C04 0308 DB2: LD LOP1,#4 025A 0299 0309 DB3: ADD ADL,ADL 025C 1288 0310 ADC ADH,ADH 025E 1AFA 0311 DJNZ LOP1,DB3 0260 42E9 0312 OR DST,ADL 0262 8BEA 0313 JR DB1 0264 0314 0264 D6009D A 0315 ZIFFIN: CALL CI 0267 D60287 A 0316 CALL HEXTST 026A EB01 0317 JR NZ,ZE1 026C AF 0318 RET 026D A6EE0D A 0319 ZE1: CP DST,#CR ; ABBRUCHZEICHEN SUCHEN 0270 6B11 0320 JR EQ,ZE2 0272 A6EE2C A 0321 CP DST,#',' 0275 6B0C 0322 JR EQ,ZE2 0277 A6EE20 A 0323 CP DST,#' ' 027A 6B07 0324 JR EQ,ZE2 027C FC3F 0325 LD SRC,#'?' 027F D6008D A 0326 CALL CO 0281 8BF1 0327 JR ZIFFIN 0283 A6EEFF A 0328 ZE2: CP DST,#0FFH ; Z RUECKSETZEN 0286 AF 0329 RET 0287 0330 0287 A6EE61 A 0331 HEXTST: CP DST,#61H ; GROSSE ZEICHEN? 028A 7B03 0332 JR C,HT1 028C 26EE20 A 0333 SUB DST,#20H ; UMKODIEREN KLEIN - GROSS 028F A6EE30 A 0334 HT1: CP DST,#30H ; STEUERZEICHEN? 0292 7B18 0335 JR C,HT3 0294 A6EE3A A 0336 CP DST,#3AH ; ZEICHEN 0...9? 0297 7B0D 0337 JR C,HT2 0299 86EE41 A 0338 CP DST,#41H 029C 7B0E 0339 JR C,HT3 029E A6EE47 A 0340 CP DST,#47H ; ZEICHEN A...F? 02A1 FB09 0341 JR NC,HT3 02A3 26EE07 A 0342 SUB DST,#7 02A6 56EE0F A 0343 AND DST,#0FH ; OBERES NIBBLE AUSBLENDEN 02A9 A2EE 0344 CP DST,DST ; HEX-ZAHL, SETZT Z 02AB AF 0345 RET 02AC A6EEFF A 0346 HT3: CP DST,#0FFH ; Z RUECKSETZEN 02AF AF 0347 RET ; STEUERZEICHEN BLEIBEN IN DST 02B0 0348 ; ************************* 02B0 0349 ; DOPPELTE ADRESSEINGABE 02B0 0350 ; ANFANGSADRESSE MAL;MAH 02B0 0351 ; ENDADRESSE ADL,ADH 02B0 D60235 A 0352 DADRIN: CALL ADRCR ; ANFANGSADRESSE 02B3 6D0086 A 0353 JP Z,KI1 02B6 C8E8 0354 LD MAH,ADH 02B8 D8E9 0355 LD MAL,ADL 02BA D60235 A 0356 CALL ADRCR ; ENDADRESSE 02BD AF 0357 RET 02BE 0358 ; ************************* 02BE 0359 ; ADRESSVERGLEICH 02BE A2D9 0360 ADRCP: CP MAL,ADL 02C0 EB02 0361 JR NZ,AD1 02C2 A2C8 0362 CP MAH,ADH 02C4 AF 0363 AD1: RET ; ENDADRESSE ERREICHT, Z GESETZT 02C5 0364 ; ************************* 02C5 0365 ; 1 BYTE IM HEX-FORMAT SENDEN 02C5 70E7 0366 BYTSND: PUSH MDT 02C7 F0E7 0367 SWAP MDT 02C9 D602D8 A 0368 CALL BS1 02CC D6008D A 0369 CALL CO 02CF 50E7 0370 POP MDT 02D1 D602D8 A 0371 CALL BS1 02D4 D6028D A 0372 CALL CO 02D7 AF 0373 RET 02D8 0374 02D8 56E70F A 0375 BS1: AND MDT,#0FH 02DB A6E708 A 0376 CP MDT,#0AH 02DE 7B03 0377 JR C,BS2 02E0 06E707 A 0378 ADD MDT,#7 02E3 06E730 A 0379 BS2: ADD MDT,#30H 02E6 F8E7 0380 LD SRC,MDT 02E8 AF 0381 RET 02E9 0382 ; ************************** 02E9 0383 ; RAM-ODER EPROM-ZELLE LESEN 02E9 D900 0384 RD: LD 0,MAL 02EB 08EC 0385 LD HIZ,MAH 02ED 46E0E0 A 0386 OR HIZ,#0E0H 02F0 0902 0387 LD 2,HIZ 02F2 7801 0388 LD MDT,1 02F4 AF 0389 RET 02F5 0390 ; ************************** 02F5 0391 ; RAM-ZELLE SCHREIBEN 02F5 D900 0392 RAMWR: LD 0,MAL 02F7 08EC 0393 LD HIZ,MAH 02F9 46E0E0 A 0394 OR HIZ,#0E0H 02FC 0902 0395 LD 2,HIZ 02FE 5602DF A 0396 AND 2,#0DFH ; WR AUF LO 0301 E6F804 A 0397 LD P01M,#00000100B ; PORT 1 AUF AUSGANG PROG. 0304 7901 0398 LD 1,MDT 0306 460220 A 0399 OR 2,#20H ; WR AUF HI 0309 E6F80C A 0400 LD P01M,#00001100B ; PORT 1 AUF EINGANG PROG. 030C AF 0401 RET 030D 0402 ; ************************** 030D 0403 ; RAM EINSCHALTEN 030D 56E3FE A 0404 RAMON: AND CTR,#11111110B ; USER-RESET=LO 0310 46E302 A 0405 OR CTR,#00000010B ; RAM-CS=LO 0313 D6031E A 0406 CALL LATCH 0316 AF 0407 RET 0317 0408 ; ************************** 0318 0409 ; EPROM EINSCHALTEN 0317 56E3FD A 0410 EPROM: AND CTR,#11111100B ; USER-RESET=LO,EPROM-CS=LO 031A D6031E A 0411 CALL LATCH 031D AF 0412 RET 031E 0413 ; ************************** 031E 0414 ; CTR-BYTE EINLATCHEN 031E 3900 0415 LATCH: LD 0,CTR 0320 E603E0 A 0416 LD 3,#0E0H ; LATCH LO 0323 1C03 0417 LD LOP1,#3 ; LAENGE LATCH-IMPULS 0325 1AFE 0418 LA1: DJNZ LOP1,LA1 0327 E603F0 A 0419 LD 3,#F0H ; LATCH HI 032A AF 0420 RET 032B 0421 ; ************************** 032B 0422 ; MONITOR-MODE 032B D6030D A 0423 MONI: CALL RAMON ; USER-RESET=LO 032E E6F600 A 0424 LD P2M,#0 ; P2=OUT 0331 E602E0 A 0425 LD 2,#0E0H ; WR=HI,OE=HI 0334 E6F80C A 0426 LD P1M,#00001100B ; P1=BYTE IN 0337 AF 0427 RET 0338 0428 ; ************************** 0338 0429 ; INTERRUPT-ROUTINE ZEITUEBERW. 0338 7000 0430 ISRT: PUSH 0 ; ZUSTAND PORT 0 RETTEN 033A D6031F A 0431 CALL LATCH ; LATCH-IMPULS ERZEUGEN 033D 5000 0432 POP 0 ; ZUSTAND PORT WIEDERHERSTELLEN 033F BF 0433 IRET 0340 0434 0340 0435 END SYMBOLS: AD1 02C4 A ADH 00E8 ADH2 00EA ADL 00E9 ADL2 00EB ADRCP 02BE A ADRCR 0235 A ADRIN 023F A BS1 02D8 A BS2 02E3 A BYTSND 02C5 A CI 009D A CI1 00A8 A CO 008D A CO1 0097 A CR 000D A CRIN 022B A CTR 00E3 DADRIN 02B0 A DB1 024E A DB2 0258 A DB3 025A A DST 00EE DU1 0112 A DU2 011F A DUMP 0107 A EP1 0160 A EPROM 0153 A EPRON 0317 A FI1 0197 A FILL 0188 A HEXTST 0287 A HIZ 00E0 HT1 028F A HT2 02A6 A HT3 02AC A IN1 00AC A INP 00A9 A ISRT 0338 A KA1 0207 A KA2 020A A KAPAC 01F9 A KI1 0086 A KI2 0056 A KOMIN 0039 A LA1 0325 A LATCH 031E A LF 000A A LOP1 00E1 LOP2 00E2 MAH 00EC MDT 00E7 MO1 01C3 A MO2 01D8 A MONI 032B A MOVE 01A8 A NL 00B7 A RAMON 030D A RAMWR 02F5 A RD 02E9 A SRC 00EF SU1 00D4 A SU2 00DF A SU3 00E4 A SU4 0101 A SUBST 00C2 A USER 013E A X1 021A A XXX 0210 A ZE1 026D A ZE2 0283 A ZIFFIN 0264 A PROGAM CONTAINS 0000 ERRORS, 0000 GLOBALS AND 0832 BYTES